library(tidyverse) datos <- starwars |> filter(sex %in% c("female", "male", "hermaphroditic")) resumen <- datos |> count(sex)
gg<- ggplot(resumen) + geom_col(aes(x = sex, y = n, fill = sex), alpha = 0.6) + ggthemes::scale_fill_colorblind() + theme_minimal() plotly::ggplotly(gg)